﻿Imports extranet.BE
Imports extranet.DA


Public Class BCSeguranca

  Public Shared Function SelecionaPermissoes(ByVal objBEGrupoAcesso As BEGrupoAcesso, ByVal strTela As String) As BESeguranca
    Dim objBESeguranca As New BESeguranca()
    Dim objDASeguranca As New DASeguranca
    Dim objDATela As New DATela()
    Dim objBETela As BETela = objDATela.SelecionaTela(New BETela(strTela))
    If objBETela IsNot Nothing Then objBESeguranca = objDASeguranca.SelecionaPermissoes(objBEGrupoAcesso, objBETela)
    Return objBESeguranca
  End Function

End Class
